home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / a / a_funk / packet1.tos / INGOCOM / INGOCOM.SOU < prev    next >
Encoding:
Text File  |  1995-04-30  |  45.7 KB  |  1,329 lines
  1. 16Aug93/0426 Subject: re: tfstx/ingocom Bulletin ID: 12830IDL8HBS
  2. Path: DB0RBS!DB0MWE!DB0KCP!HB9OS!HB9EAS!DB0GE!DB0HOM!DB0AIS!DB0SIF!DB0EAM
  3. !DK0MAV!DB0DNI!DK0MNL!DL8HBS de DL8HBS   @ DL8HBS to ATARI    @ ALLE
  4. Guten Tag,
  5. alle wollen TFSTX, keiner schreibt es...
  6.  
  7. Ich spiele im nachfolgenden  7PLUS-LZH-Archiv  die Original-Assembler
  8. - Sourcen zum dekodieren  eines  Modems  am  RI-Eingang der seriellen
  9. Schnittstelle des ST ein.  Die  Source  ist vom INGOCOM-Autor DH5MBC,
  10. ich weiss leider nicht, wie  ich  ihn  erreichen kann, nehme aber an,
  11. dass er mit ........ sind  mir noch einige
  12. Fehler unterlaufen, deswegen läuft es noch nicht so, wie es soll.
  13.  
  14. Ich habe keine  Zeit  und  auch  keine  Veranlassung,  die  Fehler zu
  15. finden.  Ich  musste  meinen  TNC  am  Modem  anzapfen,  um  an   die
  16. benötigten Signale  zu  kommen,  also  was  soll der Aufwand für mich
  17. hi.
  18.  
  19. Sollte sich jemand die  Mühe  machen,  die  von mir optimierte Source
  20. fehlerzubereinigen,  so  werde  ich  Mittel  und  Wege finden, das an
  21. einen residenten TF2.6-Treiber anzubinden.
  22.  
  23. Die Sourcen sind  nur  zur  nichtkommerziellen  Verwendung  frei, die
  24. Arbeitsergebnisse  müssen!  wiederum  der Allgemeinheit zur Verfügung
  25. gestellt werden.
  26. Wer sich nicht daran hält kriegt Ärger!
  27. Gruss, Joachim
  28. DL8HBS @ DB0GR
  29. P.S.:  Wollen  wir  doch  mal  sehen,  ob  noch  jemand  für  den  ST
  30. programmiert, wie gesagt, prinzipiell gehen tut es.
  31.  
  32. ; Dies ist die Originalsource zum Emfang von INGOCOM von DH5MBC
  33. ; Eine kommerzielle Verwertung ist untersagt, die verbesserten
  34. ; Sourcen sind der Allgemeinheit zur Verfüfgung zu stellen!
  35. ; Die Einspielung erfolgt von DL8HBS, ich nehme an, DH5MBC ist
  36. ; damit einverstanden. Ich weiss nicht, wie ich ihn erreichen sollte.
  37.  
  38.           .GLOBL Empfang,restore,stazei,timer_ve,timerdat1,tim_dcont,taste
  39.           .GLOBL scroll,Spuriosinterrupt
  40.  
  41. inter_mask_reg      equ $fffa15
  42. int_enable_reg      equ $fffa06
  43. int_serv_reg_a      equ $fffa0e
  44. int_serv_reg_b      equ $fffa10
  45. aktive_edge_reg     equ $fffa03
  46. timerdat            equ $fffa1e
  47. timercont           equ $fffa18
  48. serialport          equ $fffa00
  49. vblsem              equ $00000452
  50. keyvec              equ $00118
  51. rivec               equ $00138
  52. timer_a_vec         equ $00134
  53. spurios_vec         equ $00060
  54.  
  55. Empfang:  move.l    a0,sichadr          ;a0 = anfang empfangsspeicher
  56.           addq.l    #2,a0               ;erste 2 bytes fuer zahl der empf.
  57.           move.l    a0,adresse          ;byte reserviert
  58.  
  59.           movem.l   d0-d7/a0-a6,-(sp)   ;register sichern
  60.  
  61.           move.w    #255,timerdat1      ;timer auf 1200 baud
  62.           move.w    #5,tim_dcont
  63.  
  64.           pea       0                   ;supervisor
  65.           move.w    #$20,-(sp)
  66.           trap      #1
  67.           addq.l    #6,sp
  68.  
  69.           move.l    d0,savestack        ;stackpointer retten
  70.             
  71.           lea       Neutast,a4          ;tastaurinterrupt
  72.           move.l    keyvec,a3           ;XBRA
  73.           move.l    a3,-4(a4)
  74.  
  75.           pea       Neutast 
  76.           move.w    #06,-(sp)
  77.           move.w    #$d,-(sp)           ;neuen interruptvector Tastint                                      
  78.           trap      #14                 ; übergeben
  79.           addq.l    #8,sp
  80.           
  81.           lea.l     Start,a4            ;XBRA ri
  82.           move.l    rivec,a3
  83.           move.l    a3,-4(a4)
  84.  
  85.           pea       Start(pc)           ;interruptvector übergeben
  86.           move.w    #14,-(sp)
  87.           move.w    #$d,-(sp)
  88.           trap      #14
  89.           addq.l    #8,sp
  90.  
  91.           move.w    #14,-(sp)           ;ri interrupt noch sperren
  92.           move.w    #$1a,-(sp)
  93.           trap      #14
  94.           addq.l    #4,sp
  95.           
  96.           lea       Timerinterr,a4
  97.           move.l    a4,timer_ve
  98.                                         ;XBRA timerint
  99.           movea.l   timer_a_vec,a3
  100.           move.l    a3,-4(a4)
  101.  
  102.           pea       Timerinterr         ;timer setzen
  103.           move.w    #255,-(sp)          ;1200  baud
  104.           move.w    #0,-(sp)            ;noch nicht starten
  105.           move.w    #0,-(sp)            ;timer A
  106.           move.w    #$1f,-(sp)
  107.           trap      #14
  108.           lea.l     $c(sp),sp
  109.  
  110.           lea       Spuriosinterr,a4    ;spurios interrupt verbiegen
  111.           movea.l   spurios_vec,a3
  112.           move.l    a3,-4(a4)
  113.           move.l    a4,spurios_vec          
  114.  
  115.           move.l    savestack,-(sp)     ;supervisor aus
  116.           move.w    #$20,-(sp)
  117.           trap      #1
  118.           addq.l    #6,sp
  119.  
  120.           move.w    #15,vergleichwert   ;anfangsparmeter setzen
  121.           move.w    #32,bitwert
  122.           move.w    #208,synchwert
  123.           move.w    #0,ri_flag
  124.           move.w    #0,synch_flag
  125.  
  126.           movem.l   (sp)+,d0-d7/a0-a6   ;register restaurieren
  127.           move.l    #byteflag,d0
  128.           movea.l   d0,a0               ;rueckgabe ist adresse und turbo-c will
  129.           rts                           ;das in a0
  130.    
  131.            .EVEN 
  132.  
  133. XBRAta:   .DC.b 'X','B','R','A'
  134.           .DC.b 'D','C','S','T'
  135.           .DC.l 0
  136. Neutast:
  137.           move.l    a0,a0sich       ;register A0 sichern
  138.           ori.w     #$0700,sr       ;interruptlevel auf 5 setzen
  139.           andi.w    #$f5ff,sr       ;somit ri_interrupt waehrend
  140.                                     ;tastaturinterrupt moeglich
  141.     
  142.           lea       Neutast,a0      ;normale Tastaturinterruptroutine
  143.           move.l    -4(a0),-(sp)    ;anspringen
  144.           move.l    a0sich,a0
  145.           rts
  146.           
  147. a0sich: dc.l 0
  148.  
  149.           .EVEN
  150. XBRAri:   .DC.b 'X','B','R','A'
  151.           .DC.b 'D','C','S','T'
  152.           .DC.l 0
  153.  
  154. Start:    
  155.           movem.l   d0-d7/a0-a6,-(sp)   ;register sichern           
  156.           move.w    #0,vblsem         
  157.           bsr       ri_int
  158.           
  159.             
  160.           movem.l   (sp)+,d0-d7/a0-a6   ;register herstellen
  161.  
  162.           move.w    #191,int_serv_reg_a ;interrupt in service loeschen
  163.           ori.w     #96,int_enable_reg  ;ri und timer int freigeben
  164.  
  165.           rte       
  166.  
  167. ri_int:   
  168.  
  169.           andi.w    #159,int_enable_reg ;timer  und ri interrupt sperren
  170.           bchg      #6,aktive_edge_reg  ;naechster interrupt bei anderer flanke
  171.  
  172.           move.l    #255,d0             ;d0 = 255 - timerdat
  173.           sub.b     $fffa1f,d0          ;entspricht timerschritte seit letztem interrupt
  174.  
  175.           move.w    #0,d4
  176.           move.w    bytecount,d5
  177.           move.l    adresse,a3
  178.           cmpi.w    #0,ri_flag
  179.           bne       kein_sta_zei
  180.           move.w    #-1,status
  181.  
  182. kein_sta_zei:       
  183.           move.w    #-1,ri_flag
  184.  
  185.           move.w    #0,timercont        ;timer neu
  186.           move.w    timerdat1,timerdat  ;starten
  187.           move.w    tim_dcont,timercont
  188.           ori.w     #32,int_enable_reg
  189.           move.w    #223,int_serv_reg_a
  190.  
  191. kein_rueck:         
  192.           move.w    vorher,d3
  193.           move.w    d0,vorher
  194.  
  195.           cmpi.w    #0,synch_flag       ;wenn synchronisation noch nicht
  196.           beq       loop                ;erfolgte ist kein stuffing möglich
  197.  
  198.           cmpi.w    #0,d5        ;sind bereits bytes empfangen worden
  199.           bne       evtl_endsynch       ;muss ein impuls > 7*32-16 ein endsynch sein
  200.  
  201.           cmp.w     synchwert,d0
  202.           bge       ri_ruecksprung
  203.           cmp.w     synchwert,d3
  204.           bge       ri_ruecksprung
  205.           bra       kein_7E
  206.  
  207. evtl_endsynch:      
  208.           cmp.w     synchwert,d3
  209.           bge       frame_end
  210.  
  211.  
  212. kein_7E:  
  213.           move.w    d3,d0
  214. loop:     
  215.           move.w    byte,d1             ;bis jetzt empf byte nach d1
  216.           sub.w     bitwert,d0          ;timerschritte minus bitwert
  217.  
  218.           cmp.w     vergleichwert,d0    ;wenn rest > 16
  219.           ble       null_setzten
  220.  
  221.           bset      #7,d1               ;war empf bit eine 1
  222.           addq.w    #1,d4
  223.           bra       vergleich
  224.  
  225. null_setzten:                           ;sonst war es eine null
  226.           bclr      #7,d1
  227.           cmpi.w    #5,d4
  228.           bne       mach_null
  229.           move.w    #0,d4
  230.           bra       nix_schiebens
  231.  
  232. mach_null:          
  233.           move.w    #0,d4
  234. vergleich:          
  235.  
  236.           cmpi.w    #0,synch_flag       ;wenn synchbyte schon empf
  237.           bne       aufnahme            ;dann springe zu aufnahme
  238.  
  239.           cmpi.w    #$7e,d1             ;wenn byte in d1 = 7e = synchronbyte
  240.           bne       schieben
  241.  
  242.           move.w    #0,bitcount
  243.           move.w    #0,byte
  244.           move.w    #0,d4
  245.           move.w    #$ff,synch_flag     ;synchronflag setzten
  246.  
  247.           bra       nix_schiebens
  248.  
  249. aufnahme: 
  250.           cmpi.w    #7,bitcount
  251.           bne       schieben
  252.  
  253.           move.b    d1,(a3)+ ;byte in adresse schreiben
  254.                               ;und adresse um eins erhöhen
  255.           
  256.           move.w    #0,bitcount         ;bitcount =0
  257.           move.w    #0,byte
  258.           addq.w    #1,d5
  259.  
  260.           bra       nix_schiebens
  261.  
  262. schieben: 
  263.           lsr.b     #1,d1               ;byte um 1 stelle nach rechts schiebne
  264.           move.w    d1,byte
  265.           addq.w    #1,bitcount
  266.  
  267. nix_schiebens:      
  268.  
  269.           cmp.w     vergleichwert,d0    ;wenn wert in d0 >16
  270.           ble       ri_ruecksprung
  271.           bra       loop                ;dann zu neuem durchlauf
  272.  
  273. ri_ruecksprung:     
  274.           move.w    d5,bytecount
  275.           move.l    a3,adresse
  276.           rts                           ;ruecksprung
  277.  
  278.           .EVEN 
  279.  
  280. frame_end:          
  281.  
  282.           movea.l   sichadr,a0
  283.           move.w    d5,d3        ;anzahl der empfangenen bytes sichern
  284.           move.b    d3,(a0)+
  285.           lsr.w     #8,d3
  286.           move.b    d3,(a0)
  287.           move.w    #0,d5        ;bytecount =0
  288.           move.l    a3,sichadr
  289.           addq.l    #2,a3
  290.           move.l    a3,adresse
  291.           move.w    #0,bitcount
  292.           move.w    #0,synch_flag
  293.           bra       ri_ruecksprung
  294.  
  295. XBRAti:   .DC.b 'X','B','R','A'
  296.           .DC.b 'D','C','S','T'
  297.           .DC.l 0
  298.  
  299.  
  300. Timerinterr:        
  301.           
  302.           movem.l   d0-d7/a0-a6,-(sp)   ;register sichern
  303.           bsr       ri_int
  304. ausis:    
  305.           move.w    #0,bytecount        ;parameter reseten
  306.           move.w    #0,ri_flag
  307.           move.w    #-1,status
  308.           move.w    #1,vblsem
  309.  
  310.           move.w    #0,synch_flag
  311.           move.l    sichadr,a3
  312.           addq.l    #2,a3
  313.           move.l    a3,adresse
  314.  
  315.           move.w    #0,timercont        ;timer neu
  316.           move.w    timerdat1,timerdat  ;einstellen
  317.  
  318.           movem.l   (sp)+,d0-d7/a0-a6   ;register herstellen
  319.           move.w    #159,int_serv_reg_a ;timer u ri interrupt ist beendet
  320.           ori.w     #96,int_enable_reg  ;timer u. ri int freigeben
  321.           
  322.           rte       
  323.  
  324. restore:  
  325.           movem.l   d0-d7/a0-a6,-(sp)   ;register sichern
  326.           pea       0                   ;supervisor
  327.           move.w    #$20,-(sp)
  328.           trap      #1
  329.           addq.l    #6,sp
  330.  
  331.           lea.l     Start,a0            ;ri zeiger zuruecksetzen
  332.           move.l    -4(a0),rivec
  333.  
  334.           lea.l     Timerinterr,a0      ;ti zeiger zuruecksetzen
  335.           move.l    -4(a0),timer_a_vec
  336.  
  337.           lea.l     Spuriosinterr,a0      ;sp_int zeiger zuruecksetzen
  338.           move.l    -4(a0),spurios_vec
  339.  
  340.           lea.l     Neutast,a0          ;tastatur zeiger zuruecksetzen
  341.           move.l    -4(a0),keyvec
  342.  
  343.           move.l    savestack,-(sp)     ;supervisor aus
  344.           move.w    #$20,-(sp)
  345.           trap      #1
  346.           addq.l    #6,sp
  347.  
  348.           movem.l   (sp)+,d0-d7/a0-a6   ;register herstellen
  349.           
  350.           rts       
  351.  
  352.           .EVEN
  353.  
  354. XBRAsp:   .DC.b 'X','B','R','A'
  355.           .DC.b 'D','C','S','T'
  356.           .DC.l 0
  357.           
  358. Spuriosinterr:
  359.           bra Timerinterr
  360.  
  361. scroll:
  362.           cmpi.w    #0,d0
  363.           beq       scrollret
  364.           move.l    a0,a1
  365.           add.l     #84,a1
  366. scrolloop:
  367.           move.l    (a1)+,(a0)+
  368.           dbf       d0,scrolloop
  369. scrollret:
  370.           rts
  371.           
  372.           
  373. savestack:          .DC.l 0
  374. byteflag: .DC.w 0
  375. bytecount:          .DC.w 0
  376. adresse:  .DC.l 0
  377. sichadr:  .DC.l 0
  378. timerdat1:          .DC.w 0
  379. tim_dcont:          .DC.w 0
  380. vergleichwert:      .DC.w 0
  381. synch_flag:         .DC.w 0
  382. ri_flag:  .DC.w 0
  383. synchwert:          .DC.w 0
  384. bitwert:  .DC.w 0
  385. bitcount: .DC.w 0
  386. status:   .DC.w 0
  387. byte:     .DC.w 0
  388. vorher:   .DC.w 0
  389. timer_ve: .DC.l 0
  390. oldkey:   .DC.l 0
  391.  
  392.  
  393.  
  394.           .EVEN 
  395.  
  396. * Dies ist eine bereits hochoptimierte Version von DH5MBC's Sourcen,
  397. * die Optimierungen sind von DL8HBS. Leider sind sie noch nicht ganz
  398. * fehlerfrei.
  399. * Ich würde diese Version überarbeiten und insbesondere die Variablen-
  400. * zugriffe nocheinmal genauestens überprüfen sowie die Verwendung von
  401. * Byte-Zugriffen auf die I/O-Adressen anstelle der originalen Word-
  402. * Zugriffe. Mit geladenem HSMODEM sollte die Interruptbearbeitung
  403. * dieser Version so schnell sein, dass sich Maus, Tastatur und
  404. * serielle Schnittstelle nicht gegenseitig aus'interrupten'.
  405. * Jegliche kommerzielle Verwertung ist untersagt, hieraus hervorge-
  406. * gangene verbesserte Sourcen MÜSSEN der Allgemeinheit zur Verfügung
  407. * gestellt werden.
  408. * Joachim Schurig, DL8HBS, 12/08/93
  409.  
  410.             .GLOBL AX_RX_ON,AX_RX_OFF   ; Empfang, restore ...
  411.  
  412. *          .XDEF stazei,timer_ve,timerd1,tim_dcont,taste
  413. *          .GLOBL scroll,Spuriosinterr
  414.  
  415. inter_mask_reg      equ $00fffa15
  416. int_enable_reg      equ $00fffa07
  417. int_serv_reg_a      equ $00fffa0f
  418. aktive_edge_reg     equ $00fffa03
  419. timerdat            equ $00fffa1f
  420. timercont           equ $00fffa19
  421. vblsem              equ $00000452
  422. keyvec              equ $00118
  423. rivec               equ $00138
  424. timer_a_vec         equ $00134
  425. spurios_vec         equ $00060
  426.  
  427.  
  428.             .text
  429.  
  430. * function AX_RX_ON(adresse:long_integer):long_integer; external;
  431.  
  432. AX_RX_ON: move.l    4(sp),d0                ;ADRESSE nach d0
  433.  
  434.           movem.l   d0-d7/a0-a6,-(sp)       ;register sichern
  435.  
  436.           lea       parms,a4
  437.           move.l    a4,a2
  438.           move.w    #(lastparm-parms)/2,d1
  439. clr_lp:   clr.w     (a2)+
  440.           dbra      d1,clr_lp
  441.  
  442.           move.l    d0,sichadr-parms(a4)    ;d0 = anfang empfangsspeicher
  443.           addq.l    #2,d0                   ;erste 2 bytes fuer zahl der empf.
  444.           move.l    d0,adresse-parms(a4)    ;byte reserviert
  445.  
  446.           move.w    #255,timerd1-parms(a4)  ;timer auf 1200 baud
  447.           move.w    #5,tim_dcont-parms(a4)
  448.  
  449.           clr.l     -(sp)                   ;supervisor
  450.           move.w    #$20,-(sp)
  451.           trap      #1
  452.           addq.l    #6,sp
  453.  
  454.           move.l    d0,savestack-parms(a4)  ;stackpointer retten
  455.             
  456.           lea       Neutast(pc),a4          ;tastaurinterrupt
  457.           move.l    keyvec,a3               ;XBRA
  458.           move.l    a3,-4(a4)
  459.  
  460.           move.l    a4,-(sp)
  461.           move.w    #06,-(sp)
  462.           move.w    #$d,-(sp)               ;neuen interruptvector Tastint                                      
  463.           trap      #14                     ;übergeben
  464.           addq.l    #8,sp
  465.           
  466.           lea       Start(pc),a4            ;XBRA ri
  467.           move.l    rivec,a3
  468.           move.l    a3,-4(a4)
  469.  
  470.           move.l    a4,-(sp)
  471.           move.w    #14,-(sp)
  472.           move.w    #$d,-(sp)
  473.           trap      #14
  474.           addq.l    #8,sp
  475.  
  476.           move.w    #14,-(sp)               ;ri interrupt noch sperren
  477.           move.w    #$1a,-(sp)
  478.           trap      #14
  479.           addq.l    #4,sp
  480.           
  481.           lea       TimerAint(pc),a4
  482.           move.l    a4,timer_ve
  483.           movea.l   timer_a_vec,a3
  484.           move.l    a3,-4(a4)
  485.           move.l    a4,-(sp)
  486.           move.w    #255,-(sp)              ;1200  baud
  487.           move.w    #0,-(sp)                ;noch nicht starten
  488.           move.w    #0,-(sp)                ;timer A
  489.           move.w    #$1f,-(sp)
  490.           trap      #14
  491.           lea.l     $c(sp),sp
  492.  
  493.           lea       Spuriosinterr(pc),a4    ;spurios interrupt verbiegen
  494.           movea.l   spurios_vec,a3
  495.           move.l    a3,-4(a4)
  496.           move.l    a4,spurios_vec
  497.  
  498.           move.l    savestack,-(sp)         ;supervisor aus
  499.           move.w    #$20,-(sp)
  500.           trap      #1
  501.           addq.l    #6,sp
  502.  
  503.           move.w    #15,vglwert-parms(a4)   ;anfangsparmeter setzen
  504.           move.w    #32,bitwert-parms(a4)
  505.           move.w    #208,synchwert-parms(a4)
  506.           clr.w     ri_flag-parms(a4)
  507.           clr.w     synch_flag-parms(a4)
  508.  
  509.           movem.l   (sp)+,d0-d7/a0-a6       ;register restaurieren
  510.           move.l    #byteflag,d0
  511.  
  512. *          movea.l   d0,a0                  ;rueckgabe ist adresse und turbo-c will
  513. *          rts                              ;das in a0
  514.  
  515. * Nun, so sieht das in Pascal aus:
  516.           move.l    (sp)+,a0
  517.           addq.l    #4,sp
  518.           jmp       (a0)
  519.    
  520. * procedure AX_RX_OFF;external;
  521.  
  522. AX_RX_OFF:
  523.           movem.l   d0-d7/a0-a6,-(sp)   ;register sichern
  524.           clr.l     -(sp)               ;supervisor
  525.           move.w    #$20,-(sp)
  526.           trap      #1
  527.           addq.l    #6,sp
  528.  
  529.           lea       Start(pc),a0        ;ri zeiger zuruecksetzen
  530.           move.l    -4(a0),rivec
  531.  
  532.           lea       TimerAint(pc),a0    ;ti zeiger zuruecksetzen
  533.           move.l    -4(a0),timer_a_vec
  534.  
  535.           lea.l     Spuriosinterr(pc),a0 ;sp_int zeiger zuruecksetzen
  536.           move.l    -4(a0),spurios_vec
  537.  
  538.           lea.l     Neutast(pc),a0      ;tastatur zeiger zuruecksetzen
  539.           move.l    -4(a0),keyvec
  540.  
  541.           move.l    savestack,-(sp)     ;supervisor aus
  542.           move.w    #$20,-(sp)
  543.           trap      #1
  544.           addq.l    #6,sp
  545.  
  546.           movem.l   (sp)+,d0-d7/a0-a6   ;register herstellen
  547.           rts
  548.  
  549. * scroll:
  550. *         tst.w     d0
  551. *         beq.s     scrollret
  552. *         move.l    a0,a1
  553. *         add.l     #84,a1
  554. * scrolloop:
  555. *         move.l    (a1)+,(a0)+
  556. *         dbf       d0,scrolloop
  557. * scrollret:
  558. *         rts
  559.  
  560. XBRAta:   .dc.b 'XBRA'
  561.           .dc.b 'DCST'
  562.           .dc.l 0
  563.  
  564. Neutast:  ori.w     #$0700,sr           ;interruptlevel auf 5 setzen
  565.           andi.w    #$f5ff,sr           ;somit ri_interrupt waehrend
  566.           move.l    Neutast-4(pc),-(sp) ;tastaturinterrupt moeglich
  567.           rts
  568.  
  569.           .dc.b 'XBRA'
  570.           .dc.b 'DCST'
  571.           .dc.l 0
  572.  
  573. Spuriosinterr:
  574.           bra.s TimerAint
  575.  
  576.           .dc.b 'XBRA'
  577.           .dc.b 'DCST'
  578.           .dc.l 0
  579.  
  580. TimerAint:                                  * Timer A ist abgelaufen...
  581.           movem.l   d0-d5/a0-a4,-(sp)       ;register sichern
  582.           bsr.s     ri_int                  ;a4 wird in ri_int geladen
  583.           clr.w     -(a2)                   ;(bytecount)
  584.           addq.l    #2,a1                   ;a1 = ^sichadr;
  585.           move.l    (a1)+,d2                ;(sichadr)
  586.           addq.l    #2,d2
  587.           move.l    d2,(a2)+                ;(adresse)
  588.           clr.w     (a2)+                   ;(ri_flag)
  589.           move.w    #-1,(a1)                ;(status)
  590.           move.w    #1,vblsem
  591.           clr.w     synch_flag-parms(a4)
  592.           clr.w     timercont               ;timer neu
  593.           addq.l    #1,a2
  594.           move.b    (a2)+,timerdat          ;(timerd1) einstellen
  595.           movem.l   (sp)+,d0-d5/a0-a4       ;register herstellen
  596.           move.b    #159,int_serv_reg_a     ;timer u. ri interrupt ist beendet
  597.           ori.b     #96,int_enable_reg      ;timer u. ri int freigeben
  598.           rte       
  599.  
  600.           .dc.b 'XBRA'
  601.           .dc.b 'DCST'
  602.           .dc.l 0
  603.  
  604. Start:    movem.l   d0-d5/a0-a4,-(sp)       ;register sichern           
  605.           clr.w     vblsem
  606.           bsr.s     ri_int
  607.           movem.l   (sp)+,d0-d5/a0-a4       ;register herstellen
  608.           move.b    #191,int_serv_reg_a     ;interrupt in service loeschen
  609.           ori.b     #96,int_enable_reg      ;ri und timer int freigeben
  610.           rte
  611.  
  612. * ACHTUNG: D2 = temporäres Register für bestimmte Rechnungen in ri_int
  613. *          A0 = temporärer Zeiger
  614. *          A1 = temporärer Zeiger
  615. *          A2 = temporärer Zeiger
  616. *          A4 = temporärer Zeiger
  617.  
  618. ri_int:   andi.b    #159,int_enable_reg     ;timer  und ri interrupt sperren
  619.           bchg      #6,aktive_edge_reg      ;naechster interrupt bei anderer flanke
  620.  
  621.           moveq.l    #255,d0                ;d0 = 255 - timerdat
  622.           sub.b     $fffa1f,d0              ;entspricht timerschritte seit letztem interrupt
  623.  
  624.           clr.w     d4
  625.           lea       parms,a4                ;a4 = ^parms        (bleibt so!)
  626.           lea       byte-parms(a4),a0       ;a0 = ^byte         (bleibt so!)
  627.           lea       bitcount-parms(a4),a1   ;a1 = ^bitcount     (bleibt so!)
  628.           lea       bytecount-parms(a4),a2  ;a2 = ^bytecount    (läuft hoch!)
  629.           move.w    (a2)+,d5                ;(bytecount)
  630.           move.l    (a2)+,a3                ;(adresse)
  631.           tst.w     (a2)                    ;(ri_flag) evtl TAS ???
  632.           bne.s     kein_sta_zei
  633.           move.w    #-1,status-parms(a4)
  634.  
  635. kein_sta_zei:       
  636.           move.w    #-1,(a2)+               ;(ri_flag)
  637.           move.b    d4,timercont            ;timer neu , d4 ist 0
  638.           addq.l    #1,a2
  639.           move.b    (a2)+,timerdat          ;starten (timerd1)
  640.           addq.l    #1,a2
  641.           move.b    (a2)+,timercont         ;(tim_dcont)
  642.           ori.b     #32,int_enable_reg
  643.           move.b    #223,int_serv_reg_a
  644.  
  645.           move.w    (a2),d3                 ;(vorher)
  646.           move.w    d0,(a2)+
  647.  
  648.           tst.w     (a2)+                   ;(synch_flag) wenn synchronisation noch nicht 
  649.           beq.s     loop                    ;erfolgte ist kein stuffing möglich
  650.  
  651.           move.w    (a2)+,d2                ;(synchwert)
  652.  
  653.           tst.w     d5                      ;sind bereits bytes empfangen worden
  654.           bne.s     evtl_endsynch           ;muss ein impuls > 7;32-16 ein endsynch sein
  655.  
  656.           cmp.w     d2,d0                   ;(synchwert)
  657.           bge.s     ri_ruecksprung
  658.           cmp.w     d2,d3                   ;(synchwert)
  659.           bge.s     ri_ruecksprung
  660.           bra.s     kein_7E
  661.  
  662. frame_end addq.l    #2,a1                   ;(a1 = ^sichadr)
  663.           move.l    (a1),a2                 ;(sichadr)
  664.           move.w    d5,d3                   ;anzahl der empfangenen bytes sichern
  665.           move.b    d3,(a2)+
  666.           lsr.w     #8,d3
  667.           move.b    d3,(a2)
  668.           clr.w     d5                      ;bytecount = 0
  669.           move.l    a3,(a1)                 ;(sichadr)
  670.           addq.l    #2,a3
  671.           clr.w     (a1)                    ;(bitcount)
  672.           clr.w     synch_flag-parms(a4)
  673.           subq.l    #2,a1                   ;(a1 = ^bitcount)
  674.  
  675. ri_ruecksprung:
  676.           lea       bytecount-parms(a4),a2
  677.           move.w    d5,(a2)+                ;(bytecount)
  678.           move.l    a3,(a2)                 ;(adresse)
  679.           rts                               ;ruecksprung
  680.  
  681. evtl_endsynch:      
  682.           cmp.w     d2,d3                   ;(synchwert)
  683.           bge.s     frame_end
  684.  
  685. kein_7E:  move.w    d3,d0
  686.  
  687. loop:     move.l    a0,a2                   ;a2 steht auf ^byte
  688.           move.w    (a2)+,d1                ;(byte) bis jetzt empf byte nach d1
  689.           sub.w     (a2)+,d0                ;(bitwert) timerschritte minus bitwert
  690.  
  691.           cmp.w     (a2),d0                 ;(vglwert) wenn rest > 16
  692.           ble.s     null_setzten
  693.  
  694.           bset      #7,d1                   ;war empf bit eine 1
  695.           addq.w    #1,d4
  696.           bra.s     vergleich
  697.  
  698. null_setzten:                               * sonst war es eine null
  699.           bclr      #7,d1
  700.           cmpi.w    #5,d4
  701.           bne.s     mach_null
  702.           clr.w     d4
  703.           bra.s     nix_schiebens
  704.  
  705. mach_null clr.w     d4
  706.  
  707. vergleich lea       synch_flag-parms(a4),a2 ;a2 = ^synch_flag
  708.           tst.w     (a2)                    ;(synch_flag) wenn synchbyte schon empf
  709.           bne.s     aufnahme                ;dann springe zu aufnahme
  710.  
  711.           cmpi.w    #$7e,d1                 ;wenn byte in d1 = 7e = synchronbyte
  712.           bne.s     schieben
  713.  
  714.           move.w    #$ff,(a2)               ;(synch_flag) synchronflag setzten
  715.           clr.w     (a0)                    ;(byte)
  716.           clr.w     (a1)                    ;(bitcount)
  717.           clr.w     d4
  718.           bra.s     nix_schiebens
  719.  
  720. aufnahme: cmpi.w    #7,(a1)                 ;(bitcount)
  721.           bne.s     schieben
  722.  
  723.           move.b    d1,(a3)+                ;byte in adresse schreiben und adresse um eins erhöhen
  724.           clr.w     (a1)                    ;(bitcount) bitcount =0
  725.           clr.w     (a0)                    ;(byte)
  726.           addq.w    #1,d5                   ;bytecount erhöhen
  727.           bra.s     nix_schiebens
  728.  
  729. schieben  lsr.b     #1,d1                   ;byte um 1 stelle nach rechts schiebne
  730.           move.w    d1,(a0)                 ;(byte)
  731.           addq.w    #1,(a1)                 ;(bitcount)
  732.  
  733. nix_schiebens:      
  734.           cmp.w     vglwert-parms(a4),d0    ;wenn wert in d0 >16
  735.           ble.s     ri_ruecksprung
  736.           bra.s     loop                    ;dann zu neuem durchlauf
  737.  
  738.             .bss
  739.       
  740. parms:              * REIHENFOLGE DER ADRESSEN NICHT VERÄNDERN!!!!!!!!!
  741. timer_ve:   .ds.l 1
  742. oldkey:     .ds.l 1
  743. savestack:  .dS.l 1
  744. byteflag:   .ds.w 1
  745.  
  746. bytecount:  .ds.w 1
  747. adresse:    .ds.l 1
  748. ri_flag:    .ds.w 1
  749. timerd1:    .ds.w 1
  750. tim_dcont:  .ds.w 1
  751. vorher:     .ds.w 1
  752. synch_flag: .ds.w 1
  753. synchwert:  .ds.w 1
  754. byte:       .ds.w 1
  755. bitwert:    .ds.w 1
  756. vglwert:    .ds.w 1
  757.  
  758. bitcount:   .ds.w 1
  759. sichadr:    .ds.l 1
  760. status:     .ds.w 1
  761.  
  762. lastparm:   .ds.w 1
  763.  
  764.             .end
  765.  
  766.  
  767. { Dies ist ein kleines Testprogramm zum Einbinden der Interruptroutinen }
  768. { DL8HBS 12/08/93                                                       }
  769.  
  770. { Stack auf 20 kByte begrenzen... }
  771. {$S20}
  772. program tfstx_test;
  773.  
  774. procedure ikbdws(cnt:integer;var s:string);
  775. xbios(25);
  776.  
  777. procedure maus_ein;
  778. var maus_eins : string;
  779. begin
  780.     maus_eins[0] := chr($08);
  781.     Ikbdws(0,maus_eins);
  782. end;
  783.  
  784. procedure maus_aus;
  785. var maus_eins : string;
  786. begin
  787.     maus_eins[0] := chr($12);
  788.     Ikbdws(0,maus_eins);
  789. end;
  790.  
  791. procedure main;
  792. var puffer,retadr:long_integer;
  793.     ch  : char;
  794.     db : boolean;
  795.     x   : integer;
  796.     procedure rsconf(speed,flowctl,ucr,rsr,tsr,scr:integer);
  797.     xbios(15);
  798.     procedure jenabint(nr:integer);
  799.     xbios(27);
  800.     procedure jdisint(nr:integer);
  801.     xbios(26);
  802.     function malloc(size:long_integer):long_integer;
  803.     gemdos($48);
  804.     procedure mfree(adress:long_integer);
  805.     gemdos($49);
  806.     
  807.     function wpeek(adress:long_integer):long_integer;
  808.     external;
  809.     function AX_RX_ON(puffer:long_integer):long_integer;
  810.     external;
  811.     procedure AX_RX_OFF;
  812.     external;
  813.  
  814. begin
  815.     puffer  := malloc(20000);
  816.     if puffer > 0 then begin
  817.         Rsconf(7,0,0,-1,1,0);
  818.         retadr  := AX_RX_ON(puffer);
  819.         maus_aus;
  820.         Jenabint(14);
  821.         repeat
  822.             read(ch);
  823.             if ch = 's' then begin
  824.                 for x := 0 to 24 do write(wpeek(retadr+x*2),' ');
  825.                 writeln;
  826.             end;
  827.         until ch = 'q';
  828.         Jdisint(14);
  829.         Jdisint(13);
  830.         AX_RX_OFF;
  831.         mfree(puffer);
  832.         maus_ein;
  833.     end;
  834. end;
  835.  
  836. begin
  837.     main;
  838. end.
  839.  
  840.  
  841. 20Aug93/1124 Subject: tfstx-source (modified) Bulletin ID: 38852_PI8DRE
  842. Path: DB0RBS!DK0MTV!DB0LJ!DB0SGL!DK0MWX!PI8AIR!PI8DRE
  843. From: PA3FUL@PI8DRE.NLD.EU To  : ATARI@ALLE           Hallo Atarianer,
  844. Habe in der Source von tfstx, 12/8/93 eingespielt von Joachim, DL8HBS,
  845. herumgewühlt und der Assembler gibt nun keine Fehlermeldungen mehr.
  846. Weiter habe ich die Source kontrolliert, speziell die
  847. Byte-Zugriffe auf die Register der MFP. Auch habe ich das Programm noch
  848. etwas weiter optimiert und "position-independent" gemacht.
  849. Die Routinen sind nicht geändert. Ich weiß zu wenig von der Sache um
  850. das erfolgreich zu tun. Es scheint mir, daß das Programm wartet auf ein
  851. $7E, das SynchronByte, dann Daten synchron empfangt und weitergibt,
  852. bis ein weiteres Synchronbyte detektiert wird.
  853. Ich habe kein Pascal compiler oder HS-MODEM, so ich kann das Programm
  854. nicht testen.
  855. Ich würde mich freuen wenn jemand etwas mit dieser modifizierte
  856. Source machen kann.
  857. 73 de Piet, PA3FUL @ PI8DRE.NLD
  858. * Dies ist eine bereits hochoptimierte Version von DH5MBC's Sourcen,
  859. * die Optimierungen sind von DL8HBS. Leider sind sie noch nicht ganz
  860. * fehlerfrei.
  861. * Ich würde diese Version überarbeiten und insbesondere die Variablen-
  862. * zugriffe nocheinmal genauestens überprüfen sowie die Verwendung von
  863. * Byte-Zugriffen auf die I/O-Adressen anstelle der originalen Word-
  864. * Zugriffe. Mit geladenem HSMODEM sollte die Interruptbearbeitung
  865. * dieser Version so schnell sein, dass sich Maus, Tastatur und
  866. * serielle Schnittstelle nicht gegenseitig aus'interrupten'.
  867. * Jegliche kommerzielle Verwertung ist untersagt, hieraus hervorge-
  868. * gangene verbesserte Sourcen MÜSSEN der Allgemeinheit zur Verfügung
  869. * gestellt werden.
  870. * Joachim Schurig, DL8HBS, 12/08/93
  871. *
  872. * Meine Kommentare sind in Englisch. Es ist also einfach zu sehen was ich
  873. * hinzugefuegt habe. Habe das Programm noch etwas optimiert durch
  874. * die Verwendung von Offsets (O_) zu Addressregisters. Dazu musste ich in
  875. * der RECEIVE ON-Routine a2 verwenden statt a4; a5 ist auf den? Stack 
  876. * gerettet worden und wieder restauriert.
  877. * Hoffentlich gibt das alles keine Probleme.
  878. * Ich habe kein Pascal-compiler, so ich kann nicht checken wieviel bugs
  879. * es noch gibt (hi). Die Routinen habe ich nicht geändert, habe nur einige 
  880. * deutliche Fehler behoben.
  881. * 73 de Piet, PA3FUL @ PI8DRE.NLD, 16-08-1993.
  882. * 
  883. *           .GLOBL AX_RX_ON,AX_RX_OFF   ; Empfang, restore ...
  884.  
  885. *          .XDEF stazei,timer_ve,timerd1,tim_dcont,taste
  886. *          .GLOBL scroll,Spuriosinterr
  887.  
  888. *
  889. * Registers MFP 68901
  890. *
  891. IERA                equ $fffa07   Interrupt enable register A
  892. ISRA                equ $fffa0f   Interrupt in-service register A
  893. AER                 equ $fffa03   Active edge register (1 l/h=on, 0 h/l=on)
  894. TADR                equ $fffa1f   Timer A Data register
  895. TACR                equ $fffa19   Timer A Control register
  896.  
  897. * inter_mask_reg    equ $00fffa15  Interrupt mask register B (NOT used)
  898.  
  899. *
  900. * Offset to Base of MFP $fffa00
  901. *
  902. mfp                 equ $fffa00
  903. *
  904. O_int_enable_reg    equ IERA-mfp
  905. O_int_serv_reg_a    equ ISRA-mfp
  906. O_aktive_edge_reg   equ AER-mfp
  907. O_timerdat          equ TADR-mfp
  908. O_timercont         equ TACR-mfp
  909.  
  910. *
  911. * System variables
  912. *
  913. vblsem              equ $0452     VBlank-handler (1=active)
  914. keyvec              equ $0118     handler IKBD/MIDI interrupt (MFP interr #6)
  915. rivec               equ $0138     Ring indicator (MFP interr #14)
  916. timer_a_vec         equ $0134     MFP interr #13 NOT supported by TOS in ST
  917. spurios_vec         equ $0060     Exception vector 24. Unknown interrupt
  918.  
  919. *
  920. *            .text
  921.  
  922. * a4 contains the relocated address of parms throughout the program
  923. * a4 will be loaded with this address after "trap's" (necessary?)
  924.  
  925. * a5 contains the base address of the mfp
  926.  
  927. * The code is position independent
  928.  
  929. *********************************************
  930. *                 RECEIVE ON                *
  931. *********************************************
  932.  
  933. * function AX_RX_ON(adresse:long_integer):long_integer; external;
  934.  
  935. AX_RX_ON: move.l    4(sp),d0                ;ADRESSE nach d0
  936.  
  937.           movem.l   d0-d7/a0-a6,-(sp)       ;register sichern
  938.  
  939.           lea.l     parms(pc),a4            reloc. startaddress of params
  940.           move.l    a4,a2
  941.           move.w    #O_lastparm/2,d1        clear table of params
  942. clr_lp:   clr.w     (a2)+                   lastparm not cleared!!
  943.           dbra      d1,clr_lp
  944.  
  945.           move.l    d0,O_sichadr(a4)        ;d0 = anfang empfangsspeicher
  946.           addq.l    #2,d0                   ;erste 2 bytes fuer zahl der empf.
  947.           move.l    d0,O_adresse(a4)        ;byte reserviert
  948.  
  949.           move.w    #255,O_timerd1(a4)      ;timer auf 1200 baud
  950.           move.w    #5,O_tim_dcont(a4)
  951.  
  952.           clr.l     -(sp)                   ;supervisor
  953.           move.w    #$20,-(sp)
  954.           trap      #1
  955.           addq.l    #6,sp
  956.  
  957.           lea       parms(pc),a4
  958.           move.l    d0,O_savestack(a4)      ;stackpointer retten
  959.             
  960.           lea       Neutast(pc),a2          ;tastaturinterrupt
  961.           move.l    keyvec,a3               ;XBRA
  962.           move.l    a3,-4(a2)
  963.  
  964.           move.l    a2,-(sp)
  965.           move.w    #06,-(sp)
  966.           move.w    #$d,-(sp)               ;neuen interruptvector Tastint                                      
  967.           trap      #14                     ;übergeben
  968.           addq.l    #8,sp
  969.           
  970.           lea       Start(pc),a2            ;XBRA ri
  971.           move.l    rivec,a3
  972.           move.l    a3,-4(a2)
  973.  
  974.           move.l    a2,-(sp)                relocated startaddress main loop
  975.           move.w    #14,-(sp)               interrupt #14 of mfp
  976.           move.w    #$d,-(sp)               set interrupt vector mfp
  977.           trap      #14                     Xbios
  978.           addq.l    #8,sp
  979.  
  980.           move.w    #14,-(sp)               ;ri interrupt noch sperren
  981.           move.w    #$1a,-(sp)              No interrupt from mfp
  982.           trap      #14                     Xbios
  983.           addq.l    #4,sp
  984.           
  985.           lea       TimerAint(pc),a2
  986.           lea       parms(pc),a4
  987.           move.l    a2,O_timer_ve(a4)
  988.           movea.l   timer_a_vec,a3          save old interr vector #13 (not
  989.           move.l    a3,-4(a2)               supported by TOS in ST)
  990.           move.l    a2,-(sp)                pointer interrupt routine
  991.           move.w    #255,-(sp)              ;1200  baud
  992.           move.w    #0,-(sp)                ;noch nicht starten
  993.           move.w    #0,-(sp)                ;timer A (0=timerA)
  994.           move.w    #$1f,-(sp)              Set timer
  995.           trap      #14
  996.           lea       12(sp),sp
  997.  
  998.           lea       Spuriosinterr(pc),a2    ;spurios interrupt verbiegen
  999.           movea.l   spurios_vec,a3
  1000.           move.l    a3,-4(a2)
  1001.           move.l    a2,spurios_vec
  1002.  
  1003.           move.l    savestack,-(sp)         ;supervisor aus
  1004.           move.w    #$20,-(sp)
  1005.           trap      #1
  1006.           addq.l    #6,sp
  1007.  
  1008.           lea       parms(pc),a4            startaddress params
  1009.           move.w    #15,O_vglwert(a4)       ;anfangsparameter setzen
  1010.           move.w    #32,O_bitwert(a4)
  1011.           move.w    #208,O_synchwert(a4)
  1012.           clr.w     O_ri_flag(a4)
  1013.           clr.w     O_synch_flag(a4)
  1014.  
  1015.           movem.l   (sp)+,d0-d7/a0-a6       ;register restaurieren
  1016.           lea.l     byteflag(pc),a0         OK with Pascal??
  1017.           move.l    a0,d0          
  1018.  
  1019. *          movea.l   d0,a0                  ;rueckgabe ist adresse und turbo-c will
  1020. *          rts                              ;das in a0
  1021.  
  1022. * Nun, so sieht das in Pascal aus:
  1023.           move.l    (sp)+,a0
  1024.           addq.l    #4,sp
  1025.           jmp       (a0)
  1026.    
  1027. * procedure AX_RX_OFF;external;
  1028.  
  1029. *********************************************
  1030. *                 RECEIVE OFF               *
  1031. *********************************************
  1032.  
  1033. AX_RX_OFF equ *
  1034.           movem.l   d0-d7/a0-a6,-(sp)       ;register sichern
  1035.           clr.l     -(sp)                   ;supervisor
  1036.           move.w    #$20,-(sp)
  1037.           trap      #1
  1038.           addq.l    #6,sp
  1039.  
  1040.           lea       Start(pc),a0            ;ri zeiger zuruecksetzen
  1041.           move.l    -4(a0),rivec
  1042.  
  1043.           lea       TimerAint(pc),a0        ;ti zeiger zuruecksetzen
  1044.           move.l    -4(a0),timer_a_vec
  1045.  
  1046.           lea.l     Spuriosinterr(pc),a0    ;sp_int zeiger zuruecksetzen
  1047.           move.l    -4(a0),spurios_vec
  1048.  
  1049.           lea.l     Neutast(pc),a0          ;tastatur zeiger zuruecksetzen
  1050.           move.l    -4(a0),keyvec
  1051.  
  1052.           lea       parms(pc),a4
  1053.           move.l    O_savestack(a4),-(sp)   ;supervisor aus
  1054.           move.w    #$20,-(sp)
  1055.           trap      #1
  1056.           addq.l    #6,sp
  1057.  
  1058.           movem.l   (sp)+,d0-d7/a0-a6       ;register herstellen
  1059.           rts
  1060.  
  1061. * scroll equ *
  1062. *         tst.w     d0
  1063. *         beq.s     scrollret
  1064. *         move.l    a0,a1
  1065. *         add.l     #84,a1
  1066. * scrolloop equ *
  1067. *         move.l    (a1)+,(a0)+
  1068. *         dbf       d0,scrolloop
  1069. * scrollret equ *
  1070. *         rts
  1071.  
  1072. XBRAta:   dc.b 'XBRA'
  1073.           dc.b 'DCST'
  1074.           dc.l 0
  1075.  
  1076. Neutast:  ori.w     #$0700,sr               ;interruptlevel auf 5 setzen
  1077.           andi.w    #$f5ff,sr               ;somit ri_interrupt waehrend
  1078.           move.l    Neutast-4(pc),-(sp)     ;tastaturinterrupt moeglich
  1079.           rts
  1080.  
  1081.           dc.b 'XBRA'
  1082.           dc.b 'DCST'
  1083.           dc.l 0
  1084.  
  1085. Spuriosinterr equ *
  1086.           bra.s TimerAint
  1087.  
  1088.           dc.b 'XBRA'
  1089.           dc.b 'DCST'
  1090.           dc.l 0
  1091.  
  1092. TimerAint equ *                             ;Timer A ist abgelaufen...
  1093.           movem.l   d0-d5/a0-a5,-(sp)       ;register sichern, auch a5!
  1094.           bsr.s     ri_int                  ;a4 wird in ri_int geladen ??
  1095. *
  1096. * (a4)= relocated address of parms. (a5)= address of mfp
  1097. *
  1098.           clr.w     -(a2)                   ;(bytecount)
  1099.           addq.l    #2,a1                   ;a1 = ^sichadr;
  1100.           move.l    (a1)+,d2                ;(sichadr)
  1101.           addq.l    #2,d2
  1102.           move.l    d2,(a2)+                ;(adresse)
  1103.           clr.w     (a2)+                   ;(ri_flag)
  1104.           move.w    #-1,(a1)                ;(status)
  1105.           move.w    #1,vblsem
  1106.           clr.w     O_synch_flag(a4)        
  1107.           clr.b     O_timercont(a5)         ;timer neu. Stop timer
  1108.           addq.l    #1,a2
  1109.           move.b    (a2)+,O_timerdat(a5)    ;(timerd1) einstellen
  1110.           move.b    #159,O_int_serv_reg_a(a5) ;timer u. ri interrupt ist beendet 
  1111.           movem.l   (sp)+,d0-d5/a0-a5       ;register herstellen 
  1112.           ori.b     #96,IERA                ;timer u. ri int freigeben
  1113.           rte                               after restoring registers
  1114.  
  1115.           dc.b 'XBRA'
  1116.           dc.b 'DCST'
  1117.           dc.l 0
  1118.  
  1119. ***********************************************
  1120. *                 MAIN LOOP                   *
  1121. ***********************************************
  1122.  
  1123. Start:    movem.l   d0-d5/a0-a5,-(sp)       ;register sichern           
  1124.           clr.w     vblsem                  vblsem inactive
  1125.           bsr.s     ri_int
  1126.           move.b    #191,O_int_serv_reg_a(a5) ;interrupt in service loeschen
  1127.           movem.l   (sp)+,d0-d5/a0-a5       ;register herstellen
  1128.           ori.b     #96,IERA                ;ri und timer int freigeben
  1129.           rte                               AFTER restoring registers
  1130.  
  1131. * ACHTUNG: D2 = temporäres Register für bestimmte Rechnungen in ri_int
  1132. *          A0 = temporärer Zeiger
  1133. *          A1 = temporärer Zeiger
  1134. *          A2 = temporärer Zeiger
  1135. *          A4 = temporärer Zeiger
  1136. *          A5 = temporärer Zeiger (Baseaddress mfp)
  1137.  
  1138. ri_int    move.l    #mfp,a5
  1139.           andi.b    #159,O_int_enable_reg(a5) ;timer  und ri interrupt sperren
  1140.           bchg.b    #6,O_aktive_edge_reg(a5) ;naechster interrupt bei anderer flanke
  1141.  
  1142.           move.w    #255,d0                 ;d0 = 255 - timerdat. moveq not allowed
  1143.           sub.b     O_timerdat(a5),d0       ;entspricht timerschritte seit letztem interrupt
  1144.  
  1145.           clr.w     d4
  1146.           lea       parms(pc),a4            ;a4 = ^parms        (bleibt so!)
  1147.           lea       O_byte(a4),a0           ;a0 = ^byte         (bleibt so!)
  1148.           lea       O_bitcount(a4),a1       ;a1 = ^bitcount     (bleibt so!)
  1149.           lea       O_bytecount(a4),a2      ;a2 = ^bytecount    (läuft hoch!)
  1150.           move.w    (a2)+,d5                ;(bytecount)
  1151.           move.l    (a2)+,a3                ;(adresse)
  1152.           tst.w     (a2)                    ;(ri_flag) evtl TAS ???
  1153.           bne.s     kein_sta_zei
  1154.           move.w    #-1,O_status(a4)
  1155.  
  1156. kein_sta_zei equ *       
  1157.           move.w    #-1,(a2)+               ;(ri_flag)
  1158.           move.b    d4,O_timercont(a5)      ;timer neu , d4 ist 0
  1159.           addq.l    #1,a2
  1160.           move.b    (a2)+,O_timerdat(a5)    ;starten (timerd1)
  1161.           addq.l    #1,a2
  1162.           move.b    (a2)+,O_timercont(a5)   ;(tim_dcont)
  1163.           ori.b     #32,O_int_enable_reg(a5)
  1164.           move.b    #223,O_int_serv_reg_a(a5)
  1165.  
  1166.           move.w    (a2),d3                 ;(vorher)
  1167.           move.w    d0,(a2)+
  1168.  
  1169.           tst.w     (a2)+                   ;(synch_flag) wenn synchronisation noch nicht 
  1170.           beq.s     loop                    ;erfolgte ist kein stuffing möglich
  1171.  
  1172.           move.w    (a2)+,d2                ;(synchwert)
  1173.  
  1174.           tst.w     d5                      ;sind bereits bytes empfangen worden
  1175.           bne.s     evtl_endsynch           ;muss ein impuls > 7;32-16 ein endsynch sein
  1176.  
  1177.           cmp.w     d2,d0                   ;(synchwert)
  1178.           bge.s     ri_ruecksprung
  1179.           cmp.w     d2,d3                   ;(synchwert)
  1180.           bge.s     ri_ruecksprung
  1181.           bra.s     kein_7E
  1182.  
  1183. frame_end addq.l    #2,a1                   ;(a1 = ^sichadr)
  1184.           move.l    (a1),a2                 ;(sichadr)
  1185.           move.w    d5,d3                   ;anzahl der empfangenen bytes sichern
  1186.           move.b    d3,(a2)+
  1187.           lsr.w     #8,d3
  1188.           move.b    d3,(a2)
  1189.           clr.w     d5                      ;bytecount = 0
  1190.           move.l    a3,(a1)                 ;(sichadr)
  1191.           addq.l    #2,a3
  1192.           clr.w     (a1)                    ;(bitcount)
  1193.           clr.w     O_synch_flag(a4)
  1194.           subq.l    #2,a1                   ;(a1 = ^bitcount)
  1195.  
  1196. ri_ruecksprung equ *
  1197.           lea       O_bytecount(a4),a2
  1198.           move.w    d5,(a2)+                ;(bytecount)
  1199.           move.l    a3,(a2)                 ;(adresse)
  1200.           rts                               ;ruecksprung
  1201.  
  1202. evtl_endsynch equ *      
  1203.           cmp.w     d2,d3                   ;(synchwert)
  1204.           bge.s     frame_end
  1205.  
  1206. kein_7E:  move.w    d3,d0
  1207.  
  1208. loop:     move.l    a0,a2                   ;a2 steht auf ^byte
  1209.           move.w    (a2)+,d1                ;(byte) bis jetzt empf byte nach d1
  1210.           sub.w     (a2)+,d0                ;(bitwert) timerschritte minus bitwert
  1211.  
  1212.           cmp.w     (a2),d0                 ;(vglwert) wenn rest > 16
  1213.           ble.s     null_setzten
  1214.  
  1215.           bset      #7,d1                   ;war empf bit eine 1
  1216.           addq.w    #1,d4
  1217.           bra.s     vergleich
  1218.  
  1219. null_setzten equ *                          * sonst war es eine null
  1220.           bclr      #7,d1
  1221.           cmpi.w    #5,d4
  1222.           bne.s     mach_null
  1223.           clr.w     d4
  1224.           bra.s     nix_schiebens
  1225.  
  1226. mach_null clr.w     d4
  1227.  
  1228. vergleich lea       O_synch_flag(a4),a2     ;a2 = ^synch_flag
  1229.           tst.w     (a2)                    ;(synch_flag) wenn synchbyte schon empf
  1230.           bne.s     aufnahme                ;dann springe zu aufnahme
  1231.  
  1232.           cmpi.w    #$7e,d1                 ;wenn byte in d1 = 7e = synchronbyte
  1233.           bne.s     schieben
  1234.  
  1235.           move.w    #$ff,(a2)               ;(synch_flag) synchronflag setzten
  1236.           clr.w     (a0)                    ;(byte)
  1237.           clr.w     (a1)                    ;(bitcount)
  1238.           clr.w     d4
  1239.           bra.s     nix_schiebens
  1240.  
  1241. aufnahme: cmpi.w    #7,(a1)                 ;(bitcount)
  1242.           bne.s     schieben
  1243.  
  1244.           move.b    d1,(a3)+                ;byte in adresse schreiben und adresse um eins erhöhen
  1245.           clr.w     (a1)                    ;(bitcount) bitcount =0
  1246.           clr.w     (a0)                    ;(byte)
  1247.           addq.w    #1,d5                   ;bytecount erhöhen
  1248.           bra.s     nix_schiebens
  1249.  
  1250. schieben  lsr.b     #1,d1                   ;byte um 1 stelle nach rechts schiebne
  1251.           move.w    d1,(a0)                 ;(byte)
  1252.           addq.w    #1,(a1)                 ;(bitcount)
  1253.  
  1254. nix_schiebens equ *      
  1255.           cmp.w     O_vglwert(a4),d0        ;wenn wert in d0 >16
  1256.           ble.s     ri_ruecksprung
  1257.           bra.s     loop                    ;dann zu neuem durchlauf
  1258.  
  1259. *            .bss
  1260. *
  1261. *      
  1262. parms        equ *        * REIHENFOLGE DER ADRESSEN NICHT VERÄNDERN!!!!!!!!!
  1263. timer_ve:    ds.l 1
  1264. oldkey:      ds.l 1
  1265. savestack:   ds.l 1
  1266. byteflag:    ds.w 1
  1267.  
  1268. bytecount:   ds.w 1
  1269. adresse:     ds.l 1
  1270. ri_flag:     ds.w 1
  1271. timerd1:     ds.w 1
  1272. tim_dcont:   ds.w 1
  1273. vorher:      ds.w 1
  1274. synch_flag:  ds.w 1
  1275. synchwert:   ds.w 1
  1276. byte:        ds.w 1
  1277. bitwert:     ds.w 1
  1278. vglwert:     ds.w 1
  1279.  
  1280. bitcount:    ds.w 1
  1281. sichadr:     ds.l 1
  1282. status:      ds.w 1
  1283. lastparm     ds.w 1
  1284.  
  1285. *
  1286. * Offset params
  1287. *
  1288.  
  1289. O_timer_ve   equ timer_ve-parms
  1290. O_oldkey     equ oldkey-parms
  1291. O_savestack  equ savestack-parms
  1292. O_byteflag   equ byteflag-parms
  1293.  
  1294. O_bytecount  equ bytecount-parms
  1295. O_adresse    equ adresse-parms
  1296. O_ri_flag    equ ri_flag-parms
  1297. O_timerd1    equ timerd1-parms
  1298. O_tim_dcont  equ tim_dcont-parms
  1299. O_vorher     equ vorher-parms
  1300. O_synch_flag equ synch_flag-parms
  1301. O_synchwert  equ synchwert-parms
  1302. O_byte       equ byte-parms
  1303. O_bitwert    equ bitwert-parms
  1304. O_vglwert    equ vglwert-parms
  1305.  
  1306. O_bitcount   equ bitcount-parms
  1307. O_sichadr    equ sichadr-parms
  1308. O_status     equ status-parms
  1309. O_lastparm   equ lastparm-parms
  1310.  end
  1311.  
  1312. 27Sep93/1107  Subject: TFSTX...  Bulletin ID: 279301DB0SHG
  1313. Path: DB0RBS!DB0MWE!DB0LAN!DB0BOX!DB0HOF!DB0SON!DB0SIF!DB0GV!DB0LJ!DB0GE!DB0IZ!DK0MWX!DB0EAM!DK0MAV!DB0SHG
  1314. de DC7OS @ DB0SHG.NDS.DEU.EU to ATARI @ DL                 Moin, moin!
  1315. In den letzten Wochen habe ich mehr oder weniger unregelmäßig davon gelesen,
  1316. daß da ein paar Leute dransitzen TFSTX (also einen Treiber für das
  1317. BayCom-Modem am ST) zu schreiben.
  1318. Ich habe mir mal die Hardwarebeschreibung des Falcons etwas genauer angesehen
  1319. und dabei festgestellt, das der DSP da ja eigentlich auch PR machen könnte.
  1320. Vielleicht bedenkt der eine oder andere Programmentwickler dieses und
  1321. erstellt das TFSTX in 2 Teilen. Ein Teil für die softwaremäßige Steuerung,
  1322. ein anderer Teil mit dem hardwareabhängigem Teil. Dieser sollte dann z.B.
  1323. leicht austauschbar sein, um wahlweise ein BayCom-Modem an der seriellen
  1324. Schnittstelle oder den DSP als Modem zu betreiben.
  1325. Das waren nun nur mal so ein paar Gedanken dazu. Vielleicht greift die ja wer
  1326. auf.
  1327. 73!          Karsten, DC7OS @DB0SHG.DEU.EU    in Garbsen (JO42TK)
  1328.  
  1329.